﻿
Namespace LightSwitchApplication

    Public Class NewPatient

        Private Sub NewPatient_InitializeDataWorkspace(saveChangesTo As System.Collections.Generic.List(Of Microsoft.LightSwitch.IDataService))
            ' Write your code here.
            Me.patientProperty = New Patient()
            Me.patientProperty.Patient_More = New Patient_More
        End Sub

        Private Sub NewPatient_Saved()
            ' Write your code here.
            'Me.Close(False)
            'Application.Current.ShowDefaultScreen(Me.patientProperty)
        End Sub

    End Class

End Namespace